1 REM BY JOSEPH GANCI
2 REM COMPUT!'S GAZZETTE DECEMBER 1983
3 REM UPGRADED BY MIKE FLAVEL
10 L(1)=1193:L(2)=1273:L(3)=1353:C$(1)=""
11 C$(2)=C$(1)+"":C$(3)=C$(2)+"":C$=C$(1)
12 BO=53280:SC=53281:CO=54272:SC(1)=15:SC(2)=0:SC(3)=7:BO(1)=13:BO(2)=2
15 BO(3)=9
17 FORT=COTOCO+24:POKET,0:NEXT:POKECO+24,15:POKECO+5,17:POKECO+6,241:POKECO,30
18 POKECO+1,10
110 POKEBO,6:POKESC,7:PRINT"[147][144]"C$"[145][145][145][145][145]BOWLING!"
112 PRINT"HOW MANY PLAYERS (1-3)"
113 GETA$:A=VAL(A$):IFA<1ORA>3THEN113
115 X$="NAMES":IFA=1THENX$="NAME"
118 PRINT"[147]TYPE IN YOUR ";X$
120 FORX=1TOA
121 PRINT"PLAYER"X":";
122 INPUTA$(X)
123 A$(X)=LEFT$(A$(X),6):NEXT
128 PRINT"[147][144]1 2 3 4 5 6 7 8 9 10  [146]":PRINT"";
129 FORX=1TO10:PRINT"1[146]2";:NEXT:PRINT"3[146]"
132 PRINTTAB(8)"[144][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":PRINTTAB(8)"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
133 ON-(A=1)GOTO138
134 PRINTTAB(7)" [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":ON-(A=2)GOTO138
136 PRINTTAB(7)" [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
138 PRINTLEFT$(C$,12)+" "+A$(1)":"
146 IFA>1THENPRINTTAB(14)+"[145]"+A$(2)":"
150 IFA>2THENPRINTTAB(27)+"[145]"+A$(3)":"
154 PRINTLEFT$(C$,12)"[144][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
156 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
160 FORQ=1TO10
166 FORZ9=1TOA:POKESC,SC(Z9)+8:POKEBO,BO(Z9)+8
167 FORX=1TO10:READV:POKEV,81:POKEV+CO,6:NEXT:RESTORE
169 J=0:G=0
170 GOSUB430:GOSUB550:P=L(Z9):GOSUB1000:L(Z9)=P
172 GOSUB1200
174 ON-(L(Z9)/2=INT(L(Z9)/2))GOTO169
175 IF(PEEK(L(Z9)-1)=47ANDQ=10)=0THEN195
178 PRINTLEFT$(C$,12)+""+A$(Z9)+", THROW ONE MORE!"
180 FORX=1TO3000:NEXT
182 PRINTLEFT$(C$,12)+""+"                       "
183 REM  PRINT"             "
184 FORX=1TO10:READV:POKEV,81:POKEV+CO,6:NEXT:RESTORE
190 J=0:GOSUB430:GOSUB550:T(Z9)=T(Z9)+J:PRINTC$(Z9);T(Z9)
192 K=J+48:IFJ+PEEK(L(Z9)-1)-224=10THENK=47
193 IFK=58THENK=152
194 POKEL(Z9),K:POKEL(Z9)+CO,4:GOTO225
195 U=0:IF(PEEK(L(Z9)-2)=152ANDQ=10)=0THEN225
198 PRINTLEFT$(C$,12)+""+A$(Z9)+", THROW TWO MORE!"
202 FORX=1TO3000:NEXT
203 PRINTLEFT$(C$,12)+""+"                      "
206 L(Z9)=L(Z9)-1
207 FORX=1TO10:READV:POKEV,81:POKEV+CO,6:NEXT:RESTORE
209 J=0:GOSUB430:GOSUB550:T(Z9)=T(Z9)+J:PRINTC$(Z9);T(Z9)
210 K=J+176:IFK=186THENK=152
211 POKEL(Z9),K:POKEL(Z9)+CO,4:L(Z9)=L(Z9)+1
213 IFPEEK(L(Z9))=152THENFORX=1TO10:READV:POKEV,81:POKEV+CO,6:NEXT:RESTORE
214 U=U+1:ONUGOTO209,225
225 NEXTZ9:NEXTQ
230 GOTO882
430 N=1827:I=40
440 POKEN,32:N=N+I:IFN<1624ORN>1868THENI=-I
460 POKEN+CO,-(PEEK(SC)=249):POKEN,81:GETA$:ON-(A$="")GOTO440:RETURN
550 N=N+1:GETA$
554 IFPEEK(N)<>81THEN595
558 Q2=N:GOSUB610
560 POKECO+4,17:POKEN-1,32:POKEN+CO,-(PEEK(SC)=240):POKEN,81:POKECO+4,16
562 FORW=1TO3
566 IFPEEK(N-39*W)=81THENQ2=N-39*W:GOSUB610
569 IFPEEK(N+41*W)=81THENQ2=N+41*W:GOSUB610
572 NEXT
595 POKECO+4,17:H=H+1:POKEN-1,32:POKEN+CO,-(PEEK(SC)=240):POKEN,81:POKECO+4,16
597 IFH=36THEN612
600 GOTO550
610 J=J+1:POKECO+4,33:POKEQ2,32:FORT=1TO50:NEXT:POKECO+4,32:RETURN
612 H=0:POKEN,32:POKEN-1,32:RETURN
882 PRINTC$;"[152]FINAL SCORES[144]"
883 PRINT""A$(1);T(1):IFA<1THENPRINT""A$(2);T(2)
884 IFA=3THENPRINT"";A$(3);T(3)
887 PRINT"AGAIN (Y/N)?"
894 GETA$:IFA$=""THEN     894
895 IFA$="Y"THENRUN
896 SYS2048
1000 G=J:IFP/2<>INT(P/2)THENG=G+176
1002 IFG=186THENG=152
1004 IFP/2=INT(P/2)THENG=G+48
1006 IFG+PEEK(P-1)-224=10THENG=47
1012 POKEP,G:POKEP+CO,12:IFG=152THENP=P+1:G=0
1100 P=P+1:RETURN
1200 REM **SCORING**
1201 T(Z9)=T(Z9)+J
1205 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-2)=47)
1210 T(Z9)=T(Z9)-10*(PEEK(L(Z9)-3)=47ANDPEEK(L(Z9)-2)=152)
1220 IFL(Z9)=1272ORL(Z9)=1352ORL(Z9)=1432THEN1290
1225 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-4)=152)
1227 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-3)=152)
1228 T(Z9)=T(Z9)-J*((PEEK(L(Z9)-5)=152ANDPEEK(L(Z9)-3)=152))
1230 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-6)=152ANDPEEK(L(Z9)-4)=152ANDPEEK(L(Z9)-2)=152)
1290 PRINTC$(Z9);T(Z9)
1300 RETURN
2200 DATA1661,1700,1739,1741,1778,1780,1819,1821,1860,1901